home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / basic / ace_final.lha / ACE_GPL_Release / prgs / Library / prefs.b < prev    next >
Encoding:
Text File  |  1996-08-29  |  409 b   |  24 lines
  1. {*
  2. ** Get screen font height via preferences.
  3. ** D Benn, July 1995
  4. *}
  5.  
  6. LIBRARY "intuition"
  7.  
  8. DECLARE FUNCTION ADDRESS GetPrefs(ADDRESS buf, ~
  9.                   SHORTINT bufsize) LIBRARY intuition
  10.  
  11. STRUCT Preferences
  12.   BYTE FontHeight
  13. END STRUCT
  14.  
  15. DECLARE STRUCT Preferences prefs
  16.  
  17. IF GetPrefs(prefs,SIZEOF(prefs)) THEN 
  18.   PRINT prefs->FontHeight 
  19. ELSE
  20.   PRINT "Error getting preferences."
  21. END IF
  22.  
  23. LIBRARY CLOSE "intuition"
  24.